On Error Resume Next 
   Const adOpenStatic = 3
   Const adLockOptimistic = 3
   Const adUseClient = 3

   Dim objConnection, objRecordset , ConnectionString , strUsers , Query
   Set objConnection = CreateObject("ADODB.Connection")
   Set objRecordset = CreateObject("ADODB.Recordset")

    ConnectionString = "DSN=ConectionOracle;" & _
	"User Id= SYSTEM; Password= PasswordSYSTEM18;"
	
	'Deprecated
	'"Provider=MSDAORA;Data Source=serverName;User ID=MyUserID; Password=MyPassword;"
   ConnectionString = "Provider=OraOLEDB.Oracle; Data Source=" & _
	"(DESCRIPTION =(ADDRESS = (PROTOCOL = TCP)(HOST = 192.168.1.35)(PORT = 1521))" & _
	"(CONNECT_DATA =(SERVER = DEDICATED)(SERVICE_NAME = orcl)));" & _
	"User Id= SYSTEM; Password= Password;"
   Query = 	"select * from dba_users"
	
   objConnection.Open ConnectionString
	
   objRecordset.CursorLocation = adUseClient
   objRecordset.Open  Query, objConnection, adOpenStatic, adLockOptimistic

   objRecordSet.MoveFirst

   Do Until objRecordset.EOF
    strUsers = objRecordset.Fields(0).Value
	HMIRuntime.Trace "User :" & strUsers & vbNewline
    objRecordset.MoveNext
   Loop

   objRecordset.Close
   objConnection.Close
   
   Set objConnection = Nothing
   Set objRecordset = Nothing
If Err.Number > 0 Then
	HMIRuntime.Trace "Error:" & Err.Number & " Descriptcion: " & Err.Description & vbNewline
End If